unit skin;

interface

uses forms, SysUtils, Classes;

type
  ISkin = class
  procedure InitSkin;
end;

implementation

uses unit1;

{ ISkin }

procedure ISkin.InitSkin;
var path: string;
begin
  path := ExtractFilePath(Application.ExeName) + '\skins\';

//---------- Play ----------//
  with Form1.GCtrl3 do
  begin
    GFile := path + 'b.bmp';
    NRect := Rect(1,1,31,31);
    ORect := Rect(32,1,62,31);
    DRect := Rect(32,1,62,31);
  end;

         
end;

end.
